home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PPC1B3AA.ZIP / DEBUG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-07-28  |  771b  |  106 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     Word     WORD001
  23.     Word     WORD002
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     STRING001 = TokenStr()
  28.     Tokenize STRING001
  29.     GetToken STRING001
  30.     If (InStr(STRING001, ".") <> 0) STRING001 = Mid(STRING001, 1, InStr(STRING001, ".") - 1)
  31.     STRING002 = STRING001 + ".PPE"
  32.     STRING003 = STRING001 + ".SYM"
  33.     If (!Exist(STRING002)) STRING002 = PPEPath() + STRING002
  34.     If (Exist(STRING002)) PrintLn ".PPE not found!"
  35.     Wait
  36.     End
  37.     If (!Exist(STRING003)) STRING003 = PPEPath() + STRING003
  38.     If (!Exist(STRING003)) PrintLn ".SYM not found!"
  39.     Wait
  40.     End
  41.     VarSeg STRING003, WORD001
  42.     VarOff STRING003, WORD002
  43.     DoIntr 241, 43962, 0, 1, WORD002, 0, 0, 512, WORD001, 0
  44.     Call STRING002
  45.     DoIntr 241, 47787, 0, 0, 0, 0, 0, 0, 0, 0
  46.  
  47. ;------------------------------------------------------------------------------
  48. ;
  49. ; Usage report (before postprocessing)
  50. ;
  51. ; ■ Statements used :
  52. ;
  53. ;    2       End
  54. ;    2       Wait
  55. ;    6       Let 
  56. ;    2       PrintLn 
  57. ;    5       If 
  58. ;    1       Tokenize 
  59. ;    1       GetToken 
  60. ;    1       Call 
  61. ;    2       DoIntr 
  62. ;    1       VarSeg 
  63. ;    1       VarOff 
  64. ;
  65. ;
  66. ; ■ Functions used :
  67. ;
  68. ;    4       +
  69. ;    1       -
  70. ;    1       <>
  71. ;    3       !
  72. ;    1       Mid()
  73. ;    2       InStr()
  74. ;    2       PPEPath()
  75. ;    4       Exist()
  76. ;    1       TokenStr()
  77. ;
  78. ;------------------------------------------------------------------------------
  79. ;
  80. ; Analysis flags : CI
  81. ;
  82. ; C - Call child PPE ■ 3
  83. ;     This is usually normal, but may be a tricky way to launch some
  84. ;     sysop-only commands.
  85. ;     ■ Search for : CALL
  86. ;
  87. ; I - Interrupt call ■ 5
  88. ;     This is rare in PPE... Although it may be a way to replace a PPE
  89. ;     command by its fast interrupt equivalent. Be aware that an
  90. ;     interrupt call may do anything... nasty (formating HD, rebooting,...)
  91. ;     or usefull (fast screen i/o, hardware ressource access,...). Check!
  92. ;     ■ Search for : DOINTR
  93. ;
  94. ;------------------------------------------------------------------------------
  95. ;
  96. ; Postprocessing report
  97. ;
  98. ;    0       For/Next
  99. ;    0       While/EndWhile
  100. ;    0       If/Then or If/Then/Else
  101. ;    0       Select Case
  102. ;
  103. ;------------------------------------------------------------------------------
  104. ;                 AEGiS Corp - Break the routines, code against the machines!
  105. ;------------------------------------------------------------------------------
  106.